Week 2 Report

This is an annotation of the 2023 Life Expectancy Data!

###Social Determinants with High Variance

We selected these these social determinants because we thought these variables significantly affect people’s access to basic healthcare.

• Primary Care Physician Rate
• Mental Health Provider Rate
• Dentists
• Children in Poverty
• Single-Parent Households
• Severe Housing Problems
• Food Insecurity
• Drug Overdose Mortality Rate

Primary Care Physicians Rate

physicians_2023 <- ranked23_counties %>%
  select(County,FIPS,`Primary Care Physicians Rate`) %>%
  na.omit()

highest_phys_rate <- physicians_2023 %>%
  arrange(desc(Primary_Care_Physicians_Rate)) %>%
  slice_max(Primary_Care_Physicians_Rate, n= 10) %>%
  print()

## # A tibble: 10 × 3
##    County                FIPS  Primary_Care_Physicians_Rate
##    <chr>                 <chr>                        <dbl>
##  1 Falls Church City     51610                         301.
##  2 Charlottesville City  51540                         296.
##  3 Winchester City       51840                         253.
##  4 Fredericksburg City   51630                         139.
##  5 Albemarle             51003                         136.
##  6 Highland              51091                         136.
##  7 Roanoke               51161                         131.
##  8 Salem City            51775                         130.
##  9 Colonial Heights City 51570                         128.
## 10 Roanoke City          51770                         127.

lowest_phys_rate <- physicians_2023 %>%
  arrange(desc(Primary_Care_Physicians_Rate)) %>%
  slice_min(Primary_Care_Physicians_Rate, n= 10) %>%
  print()

## # A tibble: 10 × 3
##    County            FIPS  Primary_Care_Physicians_Rate
##    <chr>             <chr>                        <dbl>
##  1 Appomattox        51011                         6.23
##  2 Pittsylvania      51143                         6.68
##  3 Amelia            51007                         7.68
##  4 Louisa            51109                        10.5 
##  5 Richmond          51159                        11.0 
##  6 Fairfax City      51600                        12.8 
##  7 Caroline          51033                        13.0 
##  8 Williamsburg City 51830                        13.1 
##  9 Dinwiddie         51053                        13.9 
## 10 Campbell          51031                        14.5

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.